J-Mac Electronics & Home Comics/J-Mac Electronics & Home Comics.iso/mac/J-MAC/G20F/G20_SHIO.Dxr/00077_Mstart.ls

Text File | 1998-01-22 | 802 b | 47 lines

global originalv, gno, jumplista, jumplistz

on startMovie
  set mycursor to [71, 72]
  repeat with i = 8 to 16
    set the cursor of sprite i to mycursor
  end repeat
  set jumplista to ["a1", "a2", "a3", "a4", "a5", "a6"]
  set jumplistz to ["z1", "z2", "z3", "z4", "z5", "z6"]
  if the soundEnabled = 0 then
    set the soundEnabled to 1
  end if
end

on donexta
  if (gno + 1) = 7 then
    set gno to 0
  end if
  go(getAt(jumplista, gno + 1))
end

on dobacka
  if (gno - 1) = 0 then
    set gno to 7
  end if
  go(getAt(jumplista, gno - 1))
end

on donextz
  if (gno + 1) = 7 then
    set gno to 0
  end if
  go(getAt(jumplistz, gno + 1))
end

on dobackz
  if (gno - 1) = 0 then
    set gno to 7
  end if
  go(getAt(jumplistz, gno - 1))
end

on doexit
  sound stop 1
  go("M2", "@::JMACMENU")
end